﻿Imports System.Collections.Generic
Module Module1
  Sub Main()
    Dim dizionario As _
        New Dictionary(Of String, String)
    dizionario.Add("Oggetto", _
        "Istanza di classe")
    dizionario.Add("Classe", _
        "Istruzioni per la " & _
        "definizione di una classe di " & _
        "oggetti")
    dizionario.Add("Attributo", _
        "Variabile definita " & _
        "in una classe")
    dizionario.Add("Metodo", _
        "Routine di tipo Sub o " & _
        "Function definito in una classe")
    Console.WriteLine("Numero coppie " & _
        "inserite: " & dizionario.Count)
    Console.WriteLine("Il dizionario " & _
        "ha la chiave 'Metodo'? " & _
        dizionario.ContainsKey("Metodo"))
    Console.WriteLine("Il dizionario " & _
        "ha un valore " & _
        "'Istanza di classe'? " & _
        dizionario.ContainsValue("" & _
        "Istanza di classe"))
    Console.WriteLine("Il dizionario " & _
        "ha la chiave " & _
        "'Interfaccia'? " & _
        dizionario.ContainsKey("" & _
        "Interfaccia"))
    Dim chiavi As Dictionary(Of String, _
            String).KeyCollection
    chiavi = dizionario.Keys
    Console.WriteLine()
    Console.WriteLine("Elenco chiavi " & _
        "contenute " & _
        "nel dizionario:")
    For Each chiave As String In chiavi
      Console.WriteLine(chiave)
    Next
    Dim valori As Dictionary(Of String, _
            String).ValueCollection
    valori = dizionario.Values
    Console.WriteLine()
    Console.WriteLine("Elenco valori " & _
        "contenuti nel " & _
        "dizionario:")
    For Each valore As String In valori
      Console.WriteLine(valore)
    Next
    Console.ReadLine()
  End Sub
End Module
